The Original Shareware 1.1/The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso/2/qbscreen.zip/COMDIM.BAS

BASIC Source File | 1986-12-10 | 335b | 9 lines

REM   *** COMDIM.BAS ***
REM $STATIC
      DIM ARG$(20),LOCKS$(3),DIS$(100),INP$(100),KEYFLD$(6)
      DIM PRT$(100),FLD$(20),PRM$(42)
      DIM ORFLD$(20),CRFLD$(20),COFLD$(20),PRFLD$(40)
      DIM WRK1%(20),WRK2%(20),RECS%(1000)
      DIM QI$(15),QI%(15),QK%(15),QD$(5),QD%(5),QR%(5),QN$(16,36),QN%(16,29)
REM   *** END ***